home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Almathera Ten Pack 3: CDPD 3
/
Almathera Ten on Ten - Disc 3: CDPD3.iso
/
scope
/
151-175
/
scopedisk158
/
mat
/
paths
< prev
next >
Wrap
Text File
|
1995-03-19
|
689b
|
18 lines
.K dest
.BRA {
.KET }
;; PATHS -- Preserves current path in a re-executable script.
run path >PIPE:s_path
mat >{dest$re-path} P "~(C:|Current directory)" T "path ^O" label "failat 25^Bpath reset" PIPE:s_path label "failat 10"
protect {dest$re-path} +S
;; The output of the PATH command is PIPEd into Mat, which builds the
;; script from the lines it gets. Note first the use of the match
;; negation character ("~") to discard the current directory and C:.
;; Each line in the main body is simply "path <directory-name>".
;; Preceding the main body are two lines (generated by a single label)
;; "failat 25" and "path reset"; at the end another label generates
;; "failat 10".